home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 7 (Internal Edition) / Apple R&P Lib Internal v7.0.iso / 5-Fonts & Software / Macintosh Yellow Pages 2.0 / Macintosh Yellow Pages 2.0 / background_31331.txt < prev    next >
Text File  |  1991-03-12  |  3KB  |  139 lines
  1. -- background: 31331 from stack: in.0
  2. -- bmap block id: 31496
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Subscription
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global viewTime
  9.   put the seconds into viewTime
  10. end openCard
  11.  
  12. on returnKey
  13.   global stringToFind
  14.   if the visible of msg is true or stringToFind is empty then
  15.     pass returnKey
  16.   else
  17.     if the foundText is not empty then
  18.       find string stringToFind
  19.       if the result is not "not found" then
  20.         play stop
  21.         play harpsichord a7t ae
  22.       end if
  23.     end if
  24.   end if
  25. end returnKey
  26.  
  27. on find
  28.   if the visible of msg is true then
  29.     show msg
  30.   end if
  31.   pass find
  32. end find
  33.  
  34. on arrowKey
  35.   -- do nothing
  36. end arrowKey
  37.  
  38.  
  39.  
  40. -- part 13 (field)
  41. -- low flags: 01
  42. -- high flags: 0000
  43. -- rect: left=2 top=3 right=21 bottom=451
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 0
  47. -- font id: 20
  48. -- text size: 12
  49. -- style flags: 2304
  50. -- line height: 16
  51. -- part name: Header
  52.  
  53.  
  54. -- part 22 (field)
  55. -- low flags: 01
  56. -- high flags: 0000
  57. -- rect: left=343 top=3 right=20 bottom=510
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 65535
  61. -- font id: 20
  62. -- text size: 12
  63. -- style flags: 2304
  64. -- line height: 16
  65. -- part name: Page Number
  66.  
  67.  
  68. -- part 43 (button)
  69. -- low flags: 00
  70. -- high flags: 0000
  71. -- rect: left=94 top=305 right=337 bottom=130
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Home
  80.  
  81.  
  82. -- part 46 (button)
  83. -- low flags: 00
  84. -- high flags: 2000
  85. -- rect: left=463 top=305 right=337 bottom=499
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Contents
  94. ----- HyperTalk script -----
  95. on mouseDown
  96.   play stop
  97.   play harpsichord a7e
  98. end mouseDown
  99.  
  100. on mouseUp
  101.   visual effect dissolve
  102.   go to card "Publicity Picture Dissolve"
  103.   visual effect iris close to black
  104.   visual effect iris open
  105.   go to card "Main Menu"
  106. end mouseUp
  107.  
  108.  
  109. -- part 49 (button)
  110. -- low flags: 00
  111. -- high flags: 2000
  112. -- rect: left=53 top=305 right=337 bottom=89
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Print
  121. ----- HyperTalk script -----
  122. on mouseDown
  123.   play stop
  124.   play harpsichord a7e
  125. end mouseDown
  126.  
  127. on mouseUp
  128.   answer "Print subscription form?" with "Cancel" or "OK"
  129.   if it is "OK" then
  130.     set lockScreen to true
  131.     open printing
  132.     print 2 cards
  133.     close printing
  134.     set lockScreen to false
  135.   end if
  136. end mouseUp
  137.  
  138.  
  139.